MSX Magazine 1-25

/^RIPHERIQUES AU BANC D'ESSAI:

MICRO DRIVE SVI 777
IMPRIMANTE GOLDSTAR PRT-5
INTERFACES RS 232 C

MARS
AVRIL 86
N° 5

SOMAAAIRE

Schn«¡der, Radiola .

Logo chez Philips

. í.ipMi-mcn! .1 .f lanpjrc

I remcmcns Iranvist MSX I

plus simple que le MSX-Bi

Encoré des nouveautés
chez Konami

1» di l ¡hpá

National Panasonic
et le MSX

11

Goldstar PRT-5

Une table trabante/
imprímante ASCII

Goldstar fait partie des constructeurs

qui offrent des ensembles
MSX complets. Nous avons essayé
¡'imprimante qui fait partie
de la panoplie de la marque i
la PRT-5.

Présentation

a PRT-5 est une p<
am la présentation csl plulót sedui-
mic : un coffrci de plastiquc créme qui
le presenta! ion ase

■ l'echc-

c. I lies';

d'clrelccas general. Cela limii
iciii de lils qui aérenteme souvcnr res
oriimalciiis I .1 luisón veis l'oi Jin.ilcu:
se l'ail par une pnsc "Centronics" ñor
inalisce. Aucun pioMemc de ce cotí.
C cite imprimante es! hascc sur le prrn-
sipc de la table traíanle el unirse 1111 ron
lean de paprer de I U rnm de large. I a
PKI-5 apparlreul .1 la eaiceorre des

ur doni des modeles exis
c. Tomes ees réalisatioi

Conception genérale

Poní rrmpressuni cene imprímanle un
Irse des pclils stylos a Pilles qui sont
montes sur un barillei tournant. Asee
quatre stylos de colllcurs différentes et
un loeicicl ipu '■leeniinan" la posilion
du barillci. il esr done possihle d'impri-
mer en quatre coulcurs. Lors de l'im-
pression lous les earaeteres (el les gra-
phismes cu-ntuels) sonl done dessines
avee ees stylos eomme mus le ferie/ a
la main. La scule diflercncc Herir .111 l.ul
que ce ne sonl pas seulemenr les stylos

12

dessrn d un caractcrc se iail par 111011
semen! combine du ehariol, des slylos
(qui se déplaecnt hori/ontalemenl) et de
.elui un p.ipier qui se déplace scrticalc

ji ecrit plus, éventuclle-

is dans les deux sens est ¡ndispcnsahlel.
se irouve bloque dans des rouleaux de

.louklloris .ne. des peines denls metal

ques afin d'cvitcr tout glissement qui
.■tan eataslrophique pour la qualile
'impression. Le papicr utilisc est un
Duleau de papier de 1 14 mm de large.

(40 ou 80 caracteres par Irene). P
du papier. lechangemenl de con
stylo (CC) et le changement d

.-s ASCII (codcs32á 127). V

graphiques propres a MSX ni

accentués ou speciaux.
I 'aspect de ees earaeteres pourra par-
lors unís surprendie un peu pursqu 'une
table iracante ne peni inrpiinter poinl
par point et done repriuluire un allí-
chace eoiinne le l.ul une impi uñante
maliicielle n'allielraee sur l'ecran et

hene depend 11. ,1 urellement .le i.i laiecui
du papier tiráis il depelld ailssi de la

011 peni passer .1 Sil .n ee la i.nlle illllll

mum aux depens de la lisibilité.

La PRT-5. toutelois. rr'esi pas londa-

table tratante. I lie oílre done un mode
graphiquc parneiilierernent urleressanl.

en crisman! les . 0111 mandes neeessaires
par l'mstruciion "LPRINT". Cctte
peine table traeamc fonct

de 0.2 mm. Chaqué pus e

peut s'effectuer dans le sens qui v(

gauche de la fcuillc et au debut du tn

(calculees á partir di
la téte d'ccriturc). í>

Spectravidéo SVI-777

Un avatar ¡nattendu de la cassette

Tout le monde connait les inconvénients de la cassette : c'est
lent, peu fiable et a accés séquentiel seulement. Tout le monde
connait aussi ceux de la disquette qui se résument en un seul :
c'est cher ! De la a essayer de proposer quelque chose qui n'ait
aucun des inconvénients majeurs des deux formules de mémoi-
res de masse actué lies il n'y avait pas loin et de nombreux essais
non transformes ont été tentés : les "micro-drives" chers a Sin-
clair, le Quick Orive proposé (au moins en théorie) par de nom-
breux constructeurs (dont Thomson et Olympia). L'arrivée d'un
systéme nouveau chez 5VI nous surprend done quelque peu.

aTiEiS.T,

Deux ¡nterfaces RS232C
Sanyo MRS-001 et Spectravidéo SVI-757

L'ouverture du monde MSX

Les micro-ordinateurs MSX sont généralement bien pourvus
d ¡nterfaces diverses : manettes dejeu, sorlie imprimante Cen-
tronics. Pourtant il leur manque une interface tres utile en micro-
informatique : l'interface serie RS232C permettant le branche-
ment d'imprimantes á ce standard mais aussi et surtout de
modems pour les Communications, les échanges de fichiers, etc.
Deux ¡nterfaces de ce type sont disponibles chez Sanyo et Spec-
travidéo. Nous les avons détaillées pour vous.

d'un scul pon de ce lypc déjá ulilisé
queite par exemple). On regreetc lo

Quoiquc leuis forme-, son physiqucmcm
un pai diliciemcs. ees deux cartouches

RS2>: •< rcsscmhlcii: l-cuucoup el elle-

DU:< pour le hianchcmcnl üu s.il-le c
liaixon. Ce iypc de prisc esl sans doul
le plus ulilisé pour les inicrfaces sér:
quoiquc de nombreux micrc
ordiuaieurs emploienl. aujourd'hui, di
m. idele- plus eompacls. lin effc! Ii
¡nterfaces serie n'utiliscnt pas, e

le fils de
a plupan des cas on se

nnees. De fait. sur les
i-n qucsiion.'dix broches

I es deux modeles sonl lournis avec un
manuel. imprime pom Saino, el poly-
eopie pom Speclrandeo lis son! lous
deux en Ancláis, lelilí de Saino esl
coniprehcnsihle. eelui de Spcclias ideo
beaueoup monis mai- il esl plus eom
piel. Dans les deux cas il s'agil de
manuel- neeessiianl .¡uek|ues colmáis
sanees en intormatiquc le debuuml ris
quede .'anachei eneoie quclques chc-
seux. C"est recrcttahlc I .1 p. >i:t ique Jes
conslruetcurs MSX es!, sur ce poml.

RS232C ¡ qu'est ce qut

Les échanges de donnee- se
lours par oelel Ihuil bits). II 1
erands moyens de faire Irs

CiHiNsIa'

iQiU¡E5

Pour en finir
avec la cassette ///

La mecanique d'un magnetocassette

Le chargement et la sauvegarde des programmes sur cassette
semble causer bien des diffícultés a de nombreux lecteurs. Pour
finir d'embrouiller le probléme des informations dont le moins
qu'on puisse diré est qu'elles ne reposent pas sur des bases tres
sérieuses, circulent de bouche a oreille ou sont publiées dans
diverses revues. Connaissant bien la technologie et le fonction-
nement des magnétocassettes et disposant d'un laboratoire de
mesure parfaitement equipé pour étudier leur comportement
nous avons decide de faire le point sur ce sujet. Nous ne fourni-
rons pas forcément la solution á votre probléme mais vous aurez
au moins une idée précise des raisons pour lesquelles ríen ne
marche a votre satisfaction !

(II va de sol que l'arlicle qut suil sup- les demandes de chargemeni ou de ¡au-
póse que vous connaissie; le loneium- vetante des programmes. Dans le cas
nemenidevolreordinaieurMSXei.en cnmraire plongez-vous dans votre
par tuidie,. ,,,„• vm di un Mies " »«í pas manuel : ráler ne sen ó ríen !).
pour origine des erreurs de syntaxe dans

bande magnétique on
retement l'inforrnaiion

tléatoire. L'enregistrc-
utilisc un procede ana-
imploicnt les modems :

0 est représente par u
fréquence 1200 Hzct l<
nances de fréquence 24
vitesse de 2400 ba 1

á 2400 Hz et le I i
:s á 4800 Hz. La dui
e éiani directemeni pi
la fréquence on pe
l'inscripiion d'un 1

nbre de periodcs.
Puissance et niveaux

ordinaieurs MSX, comme la plupart

ríe. l.'idee est peul-etic s t -Juisanic muís
elle est tout á-íait fausse !. Ce n'est
¡amáis a cause d'une puissance insulíi-

pas. Tout d'ahord - pmir les technicicns
• parce que l'impedance de charec que
représente l'ordinaicur pour la sortie du
magnétocassette est élevée et que, en

leillcuie denious-

larger un programme

rail possible de cr

i l'aidc d'un baladcur (« Walkman
dont la puissance de sortie c-i intinimenl
plus faible que cellc d'un maenetocas-
selle Jassique ' A la limite il pourrait

18

5T5EEC"5H5N5l 505UiEte

sene : le choix d'un niveau tr
pour cene liaison (quelques m
induil une sensibihio ¿críame .1
sites et défauls éventuels du
(cáble, prises, enregisireur). 1

Les causes du desastre

Tete megnétique

piste mognétiq

1 • La cassette

Premier aecusé, en général, la cassetie.
Ne parlons mime pas des cassettes recu-

ayant subi des charcutairc-s mysléricux :
eme re/ hicn grand la psnibelle ct jetez ou
rejeiev. C ela muís lera gagner du te

pas

sin de icls dcchéls. Si vouséles

'■ '.')' el al b.

programmes

la mécanique. A
notre asís e'esi un grand eoupable, e
d'aulalll plus qu'il esl plus sournois
Nous vous faisons gráee des cause
sccondaues pour disiingnci trors cause
pnncipalcs de « Des ice |/0 error » ¡
attribuer á la mécanique.
Le probléme le plus simple esi l'erreu

t. II n<

On regle i'Ktmtlt ó laide d une petite vis sur le cote de la tél
Aprés régiage cette vis doit étre Dioquée^vernis, colle)

in du signal. Par ce
celle adoptée lors t

désastre pcuveni provenir de la cas-
sette : undéfaul meciniquc. par csxrn-
pie un poinl dur. qui empeche le dérou-

Icillcill 1101 mal de la runde sk-s .111: la ■.en-
de lecture et aussi par une mauvaise
qualitc soirc un defaut ponctuel de la
bande provoquani le célebre « drop
out », dispariiion subrie du signal, q

:r?, á l'intéricur ct aprés démontage,
nc minuscule cbarbure de plasuquc.
.11 bli-qu-"' par municn'.s le deroule

S • U mécanique

rs írequenecs présenles sur ccll

nt une erreur se produit lors du
rment du programme. II faui
aire proceder á un régiage de la s
de déíilcment de votre magnétoca-
¡t trés simple et rapide pour u

locassette en bon état. dans des propor-
lions fon acceptables. Par contre qu'un
ressort se délende, qu'une courroie

mination de ce type de probléme
pas toujours simple el vu les pr
pectifs de l'heurc de main d'ceuvi
cialisée et des magnétocassettes n

e précieuse mécanique el qu

lu commerce ou des cas-

mvaient ainsi une nouvelle jeunesse.
Mais gáre á la goune baladeuse...
Troisiéme défaut mécanique les irregu-

gularités de lecture so

see n'evasie pour en rendre compte. Cela
n'cM'.pcchc pas le pherumiene d'cxislcr !
I ,nir le priiblcme reside dans le lall que-
de la cassette, des leles magnétiques el
de la mécanique se coniuguenl. Cela se
tiaduit par des lluctualions du linean
de sonie. Si l'amplcur du phénoméne

mal accepiee par l'OTdinaMUl q«l
répond par un message d'errcur. Etani
do une le nombre d'elernenls qul peueenl

péneles fréquenecs élevées (aigu). Ce
phciu'mene ne roue que pour les cassel-

ans probléme. Pour régler
iutagir sur la peine ns qui
reilé de la tete (généralement

ournevis lorsque l'apparcil

fairc avec doigté. Ne pas
la modifierait de facón alea-

TRAJET

in parcours suivi par

Le parcours peul avoir n'imporlc q
imcau de complcxité : il suffit de [a
"RETURN" lorsque le niveau souh;

luis sur la barre-espace i|u'il y .
á eíleciucr. (Modc symboles).

Indique! la dircetion a\cc "Ci
(pour gauche, droile, etc.) el le
de pas en chiffres (modc Ictlrcs

e programme semble long. C'cs

lux jeunes cntanis |

Cest cnsuite á l'cnfani de fairc réalisc.

le nieme liaicl a -on boiih..imnc II Jem.i.ide i-M I leiuc mu dcu\ lahleaux : mi les messaees .1
dcvra décomposcr le chemin en dille- celui du baúl esl celui des dcplacemcnis colorees,
rcmsscgmenlse

e deplacemenl
rs déplacemcnts

■[ iiiduiuei poiu cbacun possihlcs el celui du bas celui des dépla-

10 1 TRAJE I PAR DENIS KRIEGER SUR UNE
IDEE DE IAURENT TAYON ET DE riARIE-ANGE
BAUDOT

19 • PROGRAflME PRINCIPAL

20 KEYOFF : COLOR 2.0.0SSCREEN l,,0sOEFINT
=i-2:U10TH 32:CLS:DIH AC33, 14 ) SGOSUB1500

SCLSSGOSUB 1200:GOSUB 1000
30 X»2¡T-2: 15-0 =12-0

<t0 PLAT"L12N48"sXX=XsYY-Y»l2:GOSUB 1400:

if 19-1then locate 5, 23, 0 :pr1ntchr«c128 i
¡chr*C1361 ;•• " ;chr«U44j ;•• ■•;;chr«U

?"; sGOSUB 800 ELSE GOSÜB 1600¡L
¿JCATEXX-l, YY-2,0sPRlNTCHR*C 128tC 1 1*83) !
3-0MF 13-1 THEN PLAY"L 12N48" ¡LOCATE
5,23,0:PR1M1CMR*C216) ¡" " ¡CHR*C 168J ¡" "
;CHR«C168) i" " ;CMR*C168J ;" " ;CHR«C232) ;"
;CHR*tl231; ¡H-0:GOSÜB 600:ELSE GOS

(UB 1700

Tfl LOCATE 5,23,0:PRINTSPCC20);:IF 1
lEN 40 ELSE 12-I2tl ¡LOCATE 3,23,0:F
«EGARDE LE BONHOnnE BLANC. . . " J ¡15-1

I 141

¡"CUAN

LOCATE 1, 13,0¡PRINT"BRAUO
LOCATE 1.15,0¡PRINT"TU AS Ff
AJET EN" ;I5;"PAS" spRJNT" ET EN" í
3EDENTCS) DE"sPRlNT" DIRECTION" >
L30 LOCATE 1 , 18,0sPRINT"ON POUUA1T LE FA
IRE EN" ;FA ¡' PAS" SPRINT" ET EN" JPT í "CHANG
EPENUSJ DE" SPRINT" DIRECTION" ;

¿L=I.S=Til£N¿G=S ¡

sc-ccpTtp

LOCATE 15,22,
1 ¡PR1NT"1
I

60 U

?e i

"INPUT.C1J
U*--o- OR U

UNfSCORE-" ;SC¡L0CA1
TU ENCORE JOUER O/N
- THEN C30TO 150

rj-1 THEN G

THEN GOSU

THEN GOSU

THEN RUN

80 IF U«-"N" OR U«-'p" THEN SCREEN0:LOC
'TE 10, 10¡PRJNT"Au rev,olT..."'.-END
M90 30T0 160

(233 ' REALISATION SUR LES 2 TABLEAUX DU
1 DEPLACEnENT DEHANDE

300 LOCATE X-l,Ttl0,0:pRlNTCHR*C208J; :F
/OR NN-1 10 1000¡N£XT NN ¡ J8=0 ¡XX=X ¡YY=Y* 1
[^¡FOR UUI-1 TO IC
310 IF 11-0 THEN IF ACX*1
B 4?0¡X=X*l'¡XX=XX*l :GOTO
320 IF 11 = 1 THEN IF ACX-:
B 470¡X=X-1 ¡XX-XX-1 :GOTO
330 IF 11-2 THEN IF AtX.l

"0:Y=r-l :TT.TY-1 ¡GOTO 400
IF 11=3 THEN IF ACX,Ytll=l THEN GOSU
B 470:Y=Y*1 ¡YY=YY*1 ¡GOTO 400

W THEN LOCATEXX-1,YY,0¡PRINTCH

¡UPOKE BASEC63*1?,|28
=0 THEN XX=XX*1 ELSE IF 11=1 TH
1 ELSE IF 11=2 THEN YY-YY-1 ELS
E IF 11=3 THEN YY=YYt 1
380 LOCPTEXX-1,YY,0:PRJNTCHR«C13?J;
190 PLAY"L4N12" ¡FOR NN-1T0 400¡NEXT NN
400 LOCATEX-1, Y-2,0¡PRINTCHR*C2081 ; ¡LOCA

0¡PRINTCHRSC208) ;
110 FOR NN=1TO400¡NEXT NN ¡NEXT UIU
LOCATE 0,23,0:PRINTSPCC30J ;
IF JNKEY*<> " '• THEN GOTO 430
440 LOCATE 0, 23, 0 ¡PRI NTSPCC301 ; ¡IF iNKt
Y« Ó"" THEN GOTO 440

450 FOR NN-1 TO 250 ¡NEXT NN ¡LOCATE 5,23,
0¡PRINT"Appu la su. '• ;CHR*( 1233 j ¡FOR NN*
1 TO 250¡NEXT NN ¡LOCATE 15, 23, 0 ¡PRINT"

EN XX=>

630 IC-I3UF H«=CHR«C13J THEN IF J3=0 TH
EN LOCATE XX- 1 , TY-2, 0 ¡PRINTCHR*C 208 ) ; ¡RE
TURN ELSE RETURN
640 GOTO 610

650 IF 11=1 THEN IF XX-1>1 THEN 13=13*1 ¡
14=1 ¡XX=XX-1 ¡BEEP

660 IF 11=0 THEN IF XX+K32 THEN 13-13+]
¡14=1 ¡XX=XXt 1 ¡BEEP

570 IF 11-3 THEN IF YY*1<25 THEN I3-I3*]
¡14 = 1 --YY-YY.1 :BEEP

380 IF 11=2 THEN IF YY*1>15 THEN 13=13*1
=1 ¡YY=YY-l ¡BEEP

LOCATE XX-1,YY-2,0¡PRINTCHR*C1601 i
•CHOIX DE LA DIRECT ION AUEC UN
SYHBOLE
\?02 RETURN

800 IF INKEY*<> " " THEN 800
810 H«=INKEY»

820 IF H«<CHR*C281 OR H«>CHR«C311 THEN G
OTO 810

460 U*=INKEY*¡IF U«OCHR«C131 THEN GOTO
450 ELSE LOCATE 5, 23, 0 ¡PRINTSPCC251 ; ¡UPO
KE BASEC61*17, 126 ¡RETURN
A?0 IF X-2 AND Y-2 THEN A*-CHR«C2161 ELS
l^E A*-CHR«C168í
480 PLAY ,, L6N48 1 ' ¡FOR NN-1 TO 250 ¡NEXT NN ¡
LOCATE X-1,Y-2¡PRINTA«; ¡LOCATE X-1,Y*10
,0¡PRINTA*;
3 RETURN

(b33 ■ AUTANT DE PAS QUE O'APPUIS SUR LA
BARRE-ESPACE
I IF INKEY«<>"" THEN 600
I HÍ-INKEY*

830 I1=8*ÍASCCH*1-123

840 LOCATE XX- 1 , YY-2, 0 ¡PRInTCHR*C 1 11 ; ¡I

, l=ASCCH«J-28

\850 RETURN
$33 ' A L'ADULTE DE DESSINER LE TRAJET

(1000 FOR B=0 TO 33¡AtB, 01=1 ¡ACB, 141=1 ¡NE
XT B ¡FOR B=0 TO 1 4 ¡AC0, Bl-1 ¡AC 33, 61= 1 ¡NE
XT B ¡LOCATE 0,11,0 ¡PRINTSTRING»C 32, CHR* C
22431 ; ¡C«=CMR*C2161 ¡A«=CHR«C2081
1010 FOR A=0 TO 10¡LOCATE0,A,0¡PRINTCHR»
U301; ¡LOCATE 3 1 , A, 0 ¡PRINTCHR4C 131 1 ; ¡NE
XT A ¡LOCATE 1, 18,0¡PRINT'A L'ADULTE DE D
ESSINER LE TRAJET AUEC LES FLECHES

•PUIS DE TAPER ";CHR«C1231;
1020 X=2 ¡Y=2 ¡PT-0 ¡Os»'" " ¡LOCATE X-I.Y-2,0
¡PRINTCHR«C2083

1030 IF INKEY*<>"" THEN GOTO 1030
jJ040 hí-INKEY»

IF H«-CHR«C131 AND CX<>2 OR Y<>2 3 T
HEN GOTO 1 120

"~060 IF H«=CHR*C281 AND ACX*l,Y3-0 AND A
Xt2,Y}=0 AND ACXtl,Y-ll=0 AND ACX*1,Y*1
=0 THEN ACX,Y)-l ¡LOCATE X-l , Y-2 ¡PRINTC*
X-Xtl ¡PA-PA»1 ¡8EEP¡IF H«<>0* THEN PT-PT
1 ¡0»=H«

1070 IF H*=CHR*C233 AND ACX-1.Y3-0 AND A
CX-2,Y)=0 AND ACX-l,Y-n=0 AND ACX-l,Ytl
1=0 THEN ACX, Y 1 = ] ¡LOCATE X- 1 , Y-2 ¡PRINTC*
¡PA=PAt 1 ¡BEEP ¡ IF H«<>0* THEN PT=PT

= LiisS5TaT¿ÑgGas =

IF H*=CHR*C31) AND ACX,T*1)=0 AND O
t2)=0 AND ACX-1,T*13»0 AND ACX*l,Ttl
3=0 THEN ACX,Y3=1 ¡LOCATE X- 1 , T-2 ¡PRINTC»
¡Y-Ytl ¡PA=PA»1 ¡BEEP¡IF M«O0* THEN PT-PT
H ¡0«=H*

1100 IF PAO0 THEN C»=CHR*C1683

1110 LOCOTE X-1,Y-2,0¡PRINTA«;¡FOR U-l T

) 40 ¡NEXT U¡GOTO 1040

U20 ACX.Y3-1 ¡BX=X¡BY=Y¡LOCATE X-1.T-2:P
?1NTCHR«C2323 ; ¡LOCATE 1 , 5 ¡PRINTCHR.C2083
; ¡RETURN

Í"l99 ' 1N1TIALISATION DES FORMES ET DES
COULEURS DES FIGURINES
'1200 0-128:G0SUB 1250:RESTORE 1260¡D=176
:GOSUB 1250:RESTORE 1310 :FOR A=0 TO 7 ¡RE
AD X¡UPOKE BASE C 7 3 ♦ C232*6) tp, X ¡NEXT A ¡RE
STORE 1330:FOR A«0 TO 23 ¡READ X :UPOKE BA
SEC7)tC8*1293tA,X¡NEXT A

1210 FOR A-0 TO 7 ¡READ X ¡UPOKE BASEC73*C
8*1373*A>* : NEXT A

1220 UPOKE BASEC63*21, 32 ¡UPOKE BASEC6)t2
7, 128¡UPOKE BASE C63*29, 80 :UPOKE BASEC6 3 »
28, 192

1230 UPOKE BASEC63t20, 176¡UP0KE BASEC63»

26,240

1240 RETURN

1250 FOR B=D TO Dt48 STEP8:FOR C=0 TO 7¡
REP.D X¡UPOKE BASE 1 7 3 * C8*B) tC, X ¡NEXT C:NE
XT B ¡RETURN

1260 0ATA16, 8, 4, 254, 254,4,8,16
1270 DATA37.64, 128,254,254, 128,64,32
1280 PATA8,24,60,90, 153,24,24,24
1290 DATA24,24,24,1S3,

PRINT" ET CHIFf RES"

3 PRINT ¡PRINT" NUMERO DE UOTRE CHOIX

i DATf

¡,36

1520 U«=INPUT«C1)

1F U«-"1"THEN 19=1 ¡RETURN
:540 IF U*="7"THEN I9=0¡RETURN
1550 GOTO 1520

1599 ■CHOIX DE LA DIRECT ION EN LETTRES
;600 LOCATE 5,23, 1 ¡PRINT". D" ;CHR«C 128) ;"
;CHR«C1363;" .H" ;CHR«tl44) ;" .B";CHR
152);- .";
1610 IF INKET*<>"" THEN 1610
«=INPUT*U3

F U*="d" OR UI«-"D" THEN I1-0¡RETUR

OR U*-"G

1310 DPTA0, 126, 126, 126, 126, 126, 126,0
1320 DATA0, 255,0, 126, 126,0,255,0
1330 DATA3, 3, 51 , 99, 255, 255, 96, 48
1340 DATA0, 0,0, 252, 252, 0,0,0
, 1350 DATA0,0,0,63,63,0,0,0
VJ360 DATA60,60,24, 126,24,24,36,36
(1399 1 EFFACEHENT DU TABLEAU DU BAS
J400 LOCATE 0, 1 2 , 0 ¡PR INTSPCC224 3 ¡ ¡LOCPT
E 0, 17,0¡PRINTSPCC2233 ¡ ¡FOR A-12 TO 22:
LOCATE 0,A,0¡PRJNTCHR«C1303 ; ¡LOCATE 31,
!a,0¡PRINTCHR*C131)J ¡NEXT A
1410 IF XXO0 AND YT<>0 THEN LOCATE XX-l
,YY-2,0¡PRINTCHR.C160) J
1420 RETURN
1 1499 ' HENU

J1500 CLS¡LOCATE0,8,0¡PRINT"TRAJET" ¡LOCAT
|e 0,8, 1 ¡PRINT"UOULE2-UOUS 7" ¡PRINT ¡PRINT

1 = 1 ¡RE TUR
OR U»="H" THEN II =2 ¡RE TUR
OR U«="B" THEN II -3 ¡RE TUR

NOÍ1BRE DE PAS EN CHIFFRES

rspci3i);

1 ¡PRINT"COnBIEN DE PAS

¡FOR2=0TO1

'*<>"" THEN 1730
I« = 1NPUT«C1 3

F U* = CHR«C 1273THEN LOCATE 20,23,0
" "; ¡GOTO 1710
F U*=CHR*C133 THEN 1810
F U*<"0" OR U«>"9" THEN 1740
1780 B*=B**U«

1 790 LOCATE 20,23, 0¡PRINTB«;

810 1 3=UAL CB* 3 ¡ I F 13=0 THEN RETURN
820 IC=0¡FOR ÜU-t TO 600 ¡NEXT UU
Ü830 FOR A-l TO 13

^S40 LOCATE XX-l ■ TT-2, 0 ¡PRINTCHR*C 1683 ;
850 IF 11-0 THEN IF XX-M <32 THEN XX-XX*
¡BEEP¡IC=ICtl

860 IF 11=1 THEN IF XX-1>1 THEN XX-XX-1
:BEEP¡IC-IC*1

870 IF 11*2 THEN IF
•1 ¡BEEP-MC-ICtl
1880 IF 11=3 THEN IF

1 ¡BEEP¡IC=ICrl

890 LOCATE XX- 1 , YY-2, 0 ¡PRINTCHR«C 1603 ¡
900 FOR UU=1 TO 180 ¡NEXT UU
910 NEXT A ¡FOR UU=1 TO 1000 ¡NEXT UU
920 RETURN

1>13 THEN T
í>25 THEN T

i L i 1 5S5T5 1 iNiGi S ^ ^^^^

Lunar 4

in jcu d'arcadc, localisé différenis tablcaux d
au moins inlcrgalacli- proprcs goúis, grácc

<—4 1 t¡0 REM

** 190 KEY OFF
*< 200 COLOR 2, 1
►•«210 PRINT"
►•«220 PRINT"
►*230 PR I N T "
NK240 LOCATE ./
►•«250 PRINT"

*—*2M PRINT"

100 M ce programme prend envi

110 'M 11 K.o en M 280 PRINT" | | X / ► \"

120 ' H mémoire M 290 PRINT" M ■ M g/ \g"
150 ' HMMMM m * M M I I M il II M »»l 300 LOCATE, 18!PRINT"pour continuer.appuyoz

140 ' ¿10 PRINT : PRINT" • barre espare pour clavier

150 ' 320 PRINT" • bouton action pour joystick"

!6 0 ' 330 A=SlKIb(0):B=STRI6<l>

170 DEFINI A-Z 340 IF AO0 THEN JOY=0:GOTO 370

350 IF EK>0 THEN JOY=l:G0T0 370
360 50 TO 330

370 REM choix des variantes

380 SCREt'N 0,0

390 PRINr"instructions(o/n)?"

400 FU$=INKEYt: lFFU»<>"o"ANDFU»< "n "ANDFUK. >"0"ANDFU*< >"N"THEN400
410 IFF0*="n"0RF0*="N" THEN670
420 CLS:C0L0R9

430 PR1NTTAB( 13) ; " INS TRUCTIONS"

440 F'RINTTAB ( 13) ; " "

i h INI : PRINT: PRINT

460 PRINT"Aprés sélection des variables, l'ordinateur vous propose de tré(

joystickíou clavier selon le choix);le curseur se trouve A gauche de l'écr

470 PRINT

490 PRINT"Lorsque vous aurez amené le curseur al'extr&me droite de l'écran,le

remplissage se fera automatiquement"
500 PRINT:PRlNT"Appuyez sur une touche..."
510 FU*=INK£Y*: IFFU«="" IHEN510
520 CLS

530 PRINT"vous n'avez pas choisi de dessiner vos tableaux vous-méme'-'

' inquiétude, 1 'ordinateur s'en chargera aprés vous avoir demandé le

numéro c

I progressi ve) .
=ÍINT"Apr*s ees quelques formal i tés, vous disposez maim

itlNT "Le but du jeu est de se poser sur les3 plate-formei

560 FRlNT"fuel qui di mi nue (parf 01 s trop rapidement

570 PRINT:PRINr"appuyez sur une touche. . . "

580 FU*=INKtY$: 1F FU*=" "THEN580

600 PRINT'rtaii vous disposez heureusement d' unesubl i me fo,

5éme tableau. A noter que^elle-ci s
610 PRINT"stoper la course honzontale du vaisseau(m
s defuel ! ! !)

620 PRINT "Vous remarquerez que quand la vitessedu vaisseau est trop f orte, celui -
ci devient rouge, et lorsque la flamee du reacteur devient blanche,le fuel es
t au mínimum et vous devez vous poser impérati vement. "

630 PRINT"Aprés un scratch ou un atterrissage réussi , appuyez sur le bouton acti

640 PRINirAh'rtutre chose. J'oubl tai s. 80NNE CHANLf. ' 1 1 '"

650 PR 1 NT : PR 1 NT " appuyez sur une touche..."
660 FU*=INKEY*: IF FU*=""rHEN 660
670 OJL0R15:CLS

680 PRlNT"consommation du reacteur : " : PRINT: PRINT: PRINT
690 PRINT" I : faible?"
700 PRINT "2 : moyenne?"
/10 PRINT"3 : forte?"

720 FU$=1NKEY*: 1F FU*<>" 1"ANDFU*< "2" ANDFU$O"3"THEN720
730 !F FU*="1"THEN FUELi=.l
740 1F FU*="2"THEN FUEL!=.2
750 IF FU$="3"rHfeN FUEL!=.3
760 CLS:C0LOR5

770 PRINT"puissance du reacteur :": PRINT: PRINT: PR1 NT
780 PRINT'l : faible?"
790 PRINT "2 : moyenne?"
800 PRIN!"'3 : forte?"

810 A*=INKEY*:IF A*<>" 1 "ANDA*O"2"ANDA*0 "3"1HEN 810
820 IF A*="1"THEN RE' =.5
830 IF A*="2"THEN RE!=.7
840 IF A*="3"rHEN R£!=1.3
850 CLS:C0L0R7

860 PRINT"attraction 1 unai re: ": PRINT : PRINT: PRINT
8/0 PRINT" 1 : faible?"
880 PRINT"2 : moyenne?"
890 PR1NI "3 : forte?"

900 A*=1NKEY*:IF A*<>" 1 "ANDA*<>"2"ANÜA$<>"3"THEN 900
910 IF A*=" 1 " THEN AT!=.5
920 IF A*="2"THEN AT!=.7
930 IF A*=".J"THEN AT !=1.2
940 CLS:C0LÜR3

950 PRINT"voulez-vous créer vos tabl eaux? (o/n) "

960 TL»=INKEY*: IFVL$< >"o"AND IT_*< "n "ANDTLÍ .<"G"ANDTLS<. >"N" IHEN960
970 IF TL*="o"ORTL*="0"THENCT=l:G>OTO 1060
980 CL8:CQL0R9

990 PRINT "Tableau de départ(l/5)"

1000 VB*=INKEY*: IF VB*<>" 1 "ANDVB*<>"2"ANDVB*< >"3"ANDVB»< >"4"ANDVBt- "b"THEN1000

1010 IFVB*="1"THEN DTA=1

1020 1FVB$="2"THEN DTA=2

1030 IFVB*="3"THEN D TA=3

1040 1FVB*="4"THEN DTA=4

1050 IFV6*="5"THEN DTA=5

1060 VIE=4:REM nombre de vaisseaux
10/0 PST=0
10B0 S=0

1090 COLOR 12, 1 , 1 : 8LREEN 2,2

1100 CLOSE: QPEN"grp : "KUR OUIPUr AS*1

1110 REM definition des sprites

1120 FOR T=l TO 8
1130 RE ADA*

1140 S*=S*+CHR*<VAL<"S,b"+A*))

llb0 NEXTT

1160 SPRITE*<1 >=S$

1170 FOR T=l TO 14

1180 RE ADB* , BA$

1 1 90 R*=R*+CHR* < VAL < " í* " +B* > >

1200 RB*=RB*+CHR*<VALC'S<B"+BA*> )

1210 NEXTI

1220 SPRITE*(2)=R*

1230 SPRITE*<20)=RB*

1240 FOR T=l TO 7

1250 READV*

1260 U$=UÍ+CHR*<VAL<"?,b"+V*>>

12/0 NEXr I

1280 SPRITE*(3)=U$

1290 FORB=lTO 8

1300 READS*

1310 J*=J*+CHR*<VAL("!<b"+S>*>)

1320 NtXf B

1330 SPRITE*(4)=J$

1340 FUR E=l TO 8

1350 READEX*

1360 W*=W*+LHR» (VAL ( , '«<b ,, +EX»> )

1370 NEXTfc

1380 SPRITE*(5)=W*

1390 F0RÜ=ir08

1400 READPIN*

1410 CRA*=CRA*+CHR* ( VAL ( "?,b " +P 1 N» ) )
1420 NEXTD

1430 SPRITE»<7)=CRA*

1440 PRESEr<90,a0):PRlNlttl."rABLfeAU ";0TA
1450 FOR 1=1 10 1000:NEXT !
1460 CLS

1470 PLAY"slim5000o419el 15eel 9f 1 15o5do4cbl 2c 1 15rt i gaagl Vgl lM^gag^effdl 7c 11 Sel 7p
1 lbdbcdedclbd", "sBmb000o319e! lbeel 9*1 lbo4do3c:bl2cl lbcf tgaagl /gl Ibt^tyagtetedl /el
lbel7el 15dbcdedcl5d", "s8m9000o21 9el 15eelVtl l5o3do2rbl 4*gaabagedrd "

1480 REM etoiles

1490 VDP ( 1 ) =VDP ( 1 ) X0R64

1500 FOR 1=1 TO 80

lbl0 Ü=RND(1 >*256:W=RND18>*160

lb20 CÜ=RND(l)*lb: IFCU=6ÜRC0*12TH6N152t

1530 PSET(Q,W),CO

1540 NEXT I

1550 RA '=.01 74532

1560 C1RCLE(40,30) , 10, 3, RA '* 100. RA • «265, 1
1570 ClRi:LE(b0, 50) , 13, 3. KA' * 140.RA • ».:..••>. !
1580 PAINT<33,30),3

1590 IFCT=1 THENVÜP ( 1 ) =VOP ( 1 ) XÜR64EL3E1800
1600 XX=0:YY=130
1610 UOLÜK 12

1620 F0R1 = 1 T03: HPL=RND ( 1 ) t250: VPL=RND < 1 ) ♦ 1 20+55: PKt SET (HPL, VF'L) : PRfNT#] , ' : NEXT
30

1650 PUTSPRITE7, (XX-4,YY-4) , 15,7

1660 IFDES=1 rHENYY=YY-l

16/0 IFDES=2THENXX=XX+1:YY=YY-1

1680 IFDES=JmENXX = XX + l

1690 IFDES=4THENXX=XX+1:YY=YY+1

1700 IFDES=5THENYY=YY+l

1710 1FDES=6THENXX=XX-1:YY=YY+1

1/20 IFDES=7THENXX=XX-1

1730 IFDES=61HENXX=XX-1:YY=YY-1

1740 IFXX>=256IHENl/80

1750 1 F YY< 20THENY Y=Y Y+ 1

1/60 I FYY > 1 85 THENYY=YY-1

1770 COTO 1630

1780 PUTSPRITE7, (0, 0) , 0, 7: PAINT < 1 , 191 > . 6: 60T0 1950

1790 REM lecture des tableaux

1800 RESTDRE3440

1810 FOR 6=1 TO DTfl+PSr

1820 READ P,G>*,H, I, J , K, L, M, Al , A2, TAB

1830 IF P=0 THEN DTA= 1 : PST=0: GÜTO1800

1840 NEXT 6

1850 PST=P8T+1

1860 REM imprime les plate-formes —

18/0 COLOR 12

1880 PRESET (H, 1 ) : PR1NT#1 , " m "
1890 PRESETtJ.K) iPRINTVl, "■"
1900 PRESET (L,M) :PRINT*1, 'V

1910 REM dessine les tableaux —

1920 PSET<0,P),6
L?3i DRAW6*

1940 REM -finition de l'ecran

1950 PAINfd, 1911,6
1960 SA=0

1970 PRESET (5, 0) :PRINT#1 , "score: "
1980 PRESU f ( 150. 0) : PRIN r« 1 . "stage: "
1990 PRESL"T(191,0) :PR1NT#1,TAB

2000 COL ÜR10: PRESET (228, 11): PRINT«1 , "í uel ": PRESET (229.

2010 PRESET (228, 4) :PRINT#1," l - LJ - J "

2020 I FC TO 1 THENVDP ( 1 ) =VDP ( 1 ) X0R64

207.0 X-RND ( 1 ) «235: Y=8: PL 1 =231 : DL ! =256

2040 LINE(PL!,0)-(DL!,1),5,BF

2050 V'=0:W=0

2060 IFS<0THENS=0

2070 LlNE(49,0)-(98,8) , 1 , BP : PRESET (50, 0) : PRINTttl , S
2080 LINE(111.0)-<r25.8),l,BF
2090 IFSTR1&(JOY)=0THEN2090

2100 PUTSPRITE8, ( 100, 0) , 13, 1 : PRESET ( 108, 0) : PRINTtt 1 . " : '
2110 PRESET (112,0): F'RINTtll , VIE-1

2120 REM debut de la boucl e-test —

2130 PUTSPR1TE1, (X,Y),C, 1
2140 PUTSPRI TE2, (6,H),0,2
2150 PUTSPR1TE20, (&.H) ,0,20
2160 IFV'<=5THENC=14ELSEC=8
2170 1FW>=5THENW=W-1
2180 IFW<=-5THENW=W+1
2190 D=STID:(JOY):F=STRIG(JOY)
2200 I FD< >0THENGUSUB3 1 70

2216) 1FF< 01 HFN6OSUB3260

2220 IFD=0T HENS0UND7 , ScBl 1 1 1 ) 1 1 1 : V • -V 1 +AT > : X=X+W: Y=-Y+V '

2230 IF0=1 THtNV ' =V ' -Rfc 1 : X = X+W: Y=Y+V '

2240 IFD=2THENV'^V'-Rt ' :W=W+1 : X = X+WY=Y+V

2250 IFÜ=3 I HKNV ' = V ' -t-A I' ' : W -W + i : ) -X+W' Y=Y+V '

2260 I FD=4THbNV ' =V 1 +AT ' : W=W+ 1 : X=X+W: Y=Y+V '

2270 IFD=5 THENV ! =V ! +AT ! : X=X+Kl: Y=Y+V '

22B0 IFD=6THENV'=V'+AT ' : W=W-1 : X = X + W Y=Y+V 1

2290 IFD=/rHkNV'=V'+Ai ' : W=W- 1 • X -=X+W Y=Y+V '

2300 IFD=6THENV!=V!-RE!:W=W-1¡X=X+wIy=Y+V'

23 1 0 I FPU I H X ( X +4 . Y+tí ) = 1 2ANDV ! <2. 3THEN»30

2520 IFP01NT<X,Y+B> = 12ANDV >=2. 3THEN3090

2330 IFPülNr<X+8,Y+8)-12ANDV! >-2 . 3THEN3090

2340 IFPOINT (X+2, Y+l ) =60RPOINT (X+5, Y+l ) =60RP01NT (X, Y+B) -60RF0INT (X+7, Y+B) =6THEN3

2350 UY<=8THfc"NY=9:V!=0
2360 lFXí=5THtNX=7:W=0
23/0 1FX>=251THENX=249:W=0
23B0 S=b-20

2390 IFSA=15THENGOSUE<3330
2400 I FSA=25 THKNÍÍ0SU63 560
2410 SA=SA+1
2420 GUI 02 130

2430 REM datas pour sprites

2440 DATA 000 H 000
2450 DATA 00111100
2460 DATA 00111100
2470 DATA 00000000
2480 DATA 00100100
2490 DA1A 01000010
2500 DA IA 10000001
2510 DATA 01000010
2520 '

2530 DATA 0001 II
2540 DATA 00011 000, f
2550 DATA 00111100,0
2560 DATA 0010010É
2570 DATA 011 001 1É
2580 DATA 0 1 wm> 1 v.
2590 DA I A t>] ';|0*I0 ¡t
2600 DA I A 01 1001 lg
2610 DATA 00100100, i
2620 DA I A 001(9010*. i<
2630 DATA 001 1 1 100, i
2640 0

2650 DATA 00011 000, «
2660 DATA 00010000. tí
2670 '

26B0 DATA 00011000

2690 DA I A

2700 DATA 00111100
2710 DA TA 0
2720 DATA 00111
2730 DAT£

2740 DATA 00011000

2750 '

2760 DATA 00101000
2770 DA TA 00100100
2780 DATA 01101010

2790 DATA 000 1 00 1 0
2800 DATA 11101001
2810 DATA 00100010
2820 DATA 10101001
2830 DATA 00001100
2840 '

2850 DATA 00000000
2860 DATA 00101010
2870 DATA 00010100
2880 DATA 00100101
2890 DATA 01010101
2900 DATA 00100010
2910 DATA 01010100
2920 DATA 00101010
2930 '

2940 DAIA 00011000
2950 DATA 00011000
2960 DATA 00011000
2970 DATA 11100111
2980 DATA 11100111
2990 DATA 00011000
3000 DATA 00011000
3010 DATA 00011000

3020 REli gagne „ „ ,

;.030 s=S-t:000:t<ttP:PLAY"tl00o3gl6o4c2o; < .g8o4cl6e2t200cBel6g8í + 16í8d+16e8cl6o3aBgl

6o4c4c32el6"

3040 COLOR 6:PRESET(X-4.Y+6>:PRINT*l,"«r

3050 LULUR 10

3060 RS=RS+l:iF RS>=3 THt.N RS=0: CLS: PUTSPRI TE 1, (0,0), 0,1: PUTSPRITE2, (0, 0) , 0, 2: PU
TSPRITE20, (0,0) ,0,20:PUTSPRITE8. (0,0) ,0, llfiOTO 1490
3070 60T0 2030

3080 REM perdu

3090 SOUND 0.0.-SOOND 6,15: SOOND7, 7: SOUND1 2, 16: FOR J=8 TO10:SOUND J , 16: NEXT: SOUND
3100 PUTSPRITE1, (0,0) ,0, 1:PUTSPRITE2, (0, 0) , 0, 2: PUT8PRITE20, (0, 0) , 0, 20: PUTSPRI TE 4

3110 f-ÜRl = l TO 150:NEXTI:PUTSPRITE4, (0, 0) , 0, 4: PUTSPR1TE5, <X

3120 PORl=l Tü 150:NEX I 1 : PUTSPK H hb, (0.0) ,0,5

3130 VIE=VIE-1:IF VIE=0THEN3390

3140 PUTSPRITE8, (0,0) ,0, 1

3150 PUTSPRI TE4, (X , Y) , 0, 4: 6OTO2030

3160 REM REACTtUR

3170 G=X:H=Y+6

3180 bOUND B.7:SOUND7,í<fcllll0111:SOUND6.21

3 1 90 PL ! =PL 1 +FUEL 1 : DL ' =DL ' : PRESET < PL ' , 0 ) : PRESE T ( PL ' , i )

3200 I FPL ! >=DL 1 1 HEN3090

3210 IK PL'>=DL'-8THENAC=7ELSEAI>11

3220 PUTSPRI TE2, (G, H) , AC, 2

3230 PUTSPRITE20, (13, H) ,9,20

3240 RETURN

3250 REM f oreuse+arret horizontal -

3260 W=0:J=Y+40

3270 PUTSPRI TE3, (X, J) , 7, 3

3280 LINE(X + l,J+2)-(X+5,J+4>, 1,BF

3290 PL 1 =PL ' +FUEL ! : DL 1 =DL 1 : PRESET (PL 1 , 0) : PRESET ( F'L ! , 1 )
3300 PUTSPRITE3, (X,J>,0,3
3310 RETURN

3320 REM grille róchense

3330 LlNE<Al-10.A2-10)-<Al+10.A2-10),6:LINE<Al-10,A2-9)-(Al

33461 RETURN

'. : .b(.<> KEM — e-f -f acement grille rocheuse- .
3360 SAS=0:LINE(Al-10,A2-10)-<AH-10,A2-10>,0:l.iNt(Al-10,tt2-9>-(Al + 10,A2

3370 RETURN

3380 REM fin du jeu. reí anee le programme

3390 BEEP:C0L0R5

3400 LlNfc<93,76>-< 175,90), 3, BF

3410 PRES£T<100,80):PR1NT#1."6AME OVER"

3420 A=STR 1 6 < JOY ) : I FA< >01 HENRUNELSE3420

3430 REM datas des tableaux

3440 DATA 130, "r30u 30r 1 0d20r 10db0r 100u701 90ul0r 1 20d90r 20ul 10r b6 ,0.0,90,100,160,1
3450 7 DATA' 160Í "eb0r20u25130dl01 10u25r70gl0d30í20d30rlbu40h20ulbel5rB5d40gS0d20r2
0ul5r5e5bu40r20". bb. 100, 112. 150. 160. 1/0.220,82,2

3460 DA1 A 1 00. "r 20d 1 51 1 0d 1 br 1 0d 1 51 1 0d20r 30u201 1 0u 1 br 1 0u 1 - ■ i 1 0u i br ) K'f 1 jr -a» 1 jr 1 0u 1
r 1 0u 1 0r 1 0d 30r 1 0d 1 br 8d 40 1 40q 1 0f 20r 40d 2br 1 bu 20e20u 1 br 1 bu 2b 1 31*-"
40r 20Í 1 51 M 1 51 5Í 1 51 bf 1 br 23h 1 5rbh 1 5r5h 1 5r5h 1 5r 24e30" , 22, 1 55

, 158, 120,225, 1

3470 DATA 65, "r40dl 10r4bd 10r lbu351 45u85r 1 05dB01 25u551 61
d 1 1 5r 4Su9br 1 5u25 1 30d 1 00 1 1 bu 120r 50 " , /9 , 1 ib . 86 . 1 /b . 239 , /:
; .480 DAlA100,"rl0ul0r20d501 10dlbl 10d20r30d5r lbu:

Wb5rbbul00rlb

'.480 DATA100,"rl0ul0r20d501 10dl51 10d20r30dbr lDuiirr i5d 10r 1 bu 10r 1 bd 1 0r 1 5ul0e/0ujl :•
bq8140ql0u8el0u401bubrJ0e;brlbu:.k> 1 .>:ír¡«2brtíbol0l :.0.J ,.0r 6Wu ! '.»du lwrh)s2br«tHl Sd
0r 1 b+ i br 20d51 tíd40í 1 0d8h 1 01 40h8l :.bdbí ?0d 1 0r 1 bu 1 0r4041 br 30" , 1 04 , 1 7 1 , 1 36, 90, 1 68. 1 / :

0rlbf 15r20d518d40í
,24/, 110, b
3490 DA TA 0,

PUISSANCE
QUATRE

10 REfl *******************
20 REM * PUISSANCE 4 *
30 REM *******************
40 REH CC 301 ¡ver PABST et JOURNAL riSX
!EI1 Uous jouez contre votre nSX

de places "au fond de la classe,
prés du radiaieur" savenl bien que
st tres complique !
Votrc lour esl indique par l'apparilion
d - un pión rouge en hau! du lableau.
Vouv deplacc/ \otre pión avee le eurseui
nú .na mtre tnuikk. u>us le place/

joyMick. I a fin du jen cM «icimIcc par
un grand cerele de la coulcur du

Olivier Pabsi

60 REM I

'9=INTtRNDt-TiriE3*23-1

quée par un grand cercls da la couleur du gagr
80 REfl Commencaz a taper votre programáis A par
90 REM

00 COLOR 15.1:SCREEN 2:CLEAR 500:DEFINT A-Z: 1 ,
10 LINE Í110.303-t250. 1823. 10.BF

20 FOR J=170 TO 170-5*25 STEP -25:F0R 1=120 TO 120+6*20 STEP 20
30 CIRCLE CI.J3.10.15...1.4:PAINT CI.J3.15

40 NEXT I:NEXT J : A*=SPACE*C 1 993 :S*=" 3" : Y=7 :F0R X=l TO 7:G0SUB 420:NEXT >

Y=l TO 6:G0SUB 420:NEXT Y
50 Y9=N0T Y9HF Y9=0 THEN GOSUB 480 ELSE GOSUB 200
60 DtX3=DtX3+l :Y=DtXl :IF Y9=0 THEN S$= "O" :Q=8 ELSE S*="X":Q=4

70 GOSUB 420 : J=DÍ X3 :CIRCLEÍ 100+20*X. 195-J*253 . 10. Q. . , 1 . 4 ¡PAINTC 100+20*X. 195- J*2

<=8:F0

53. Q

TIF I NSTR 1 1 . A* , " 0000 " 3 OR INSTR
AINU50.903.Q: IF STRIGt03 OR STRIG

190 FOR 1=

re

THEN

. . 1.4

IIF DÍI3<6 THEN 150 ELSE NEXT HCIRCLE C50. 90 3 . 40. 15. . .

THEN GOTO 100 ELSE 190
1 TO 7
¡GOTO 310

F INSTRt 1. A*. "XXX9"3 OR INSTRt l.<
XX9X"1 THEN RETURN
3=6 THEN 280

t50.903. 15MF STRIGt03 OR STRIGtl
200 P*=" 0000000" :R$=P*:T*=R*:roR I
210 IF DtI3=6 THEN MIO*tP*. I . 1 3 = " 1
220 X=I :Y=DtX3+l :S*= "9 " :GOSUB 420:
INSTRC1.A*."X9XX"3 OR INSTRÍ1.A*.
230 DtX3=DtX3+l :FOR J=l TO 7:IF DC
240 X= J : Y=D t J 1 + 1 :S*= "8" ¡GOSUB 420
250 IF INSTRt 1. A». "8000" 3 OR INSTRI
,A*."0008"3 THEN nlD*CT*
260 IF INSTRt 1 . A*. " 008"
.A*. "080 "3 THEN MID»CP«. I. 1 1= _
270 S*=" " :GOSUB 420
280 NEXT J

290 IF INSTRt 1. A*.' XX9"3 OR INSTRt 1 . A$. 'XX9
.A*."9XX "3 OR INSTRC1.A*." X9X ' 3 OR INS T Rfl.A$."X9X "3
SE IF INSTRtl.A*."X9"3 OR INSTRt 1 . A*. "9X" 3 THEN HID*tR*
300 Y=DtI3:DtI3=OíI3-l:X=I:S*=" 1 : GOSUB 420
3t0 NEXT I:X=0

, "0800" 3
.3='5":riID$CP*.I.13 =
I OR INSTRt 1 . A*. "800 "3

OR INSTRtl.A*."0080"3 OR INSTRt 1

":S*=" ":GOSUB 420:GOTO 300
OR INSTRt 1. A*." 080" 3 OR INSTRt 1

-■T= I =NaG£S =

niD*CP*.x
mio*cp*.x
niD*CP*.x
niD*CP*.x

THEN RETURN ELSE 320
THEN RETURN ELSE 330
THEN RETURN- ELSE 340
THEN RETURN ELSE 350

="0000" :Q=8:RETURN 1

¡0 X-OOl ¡X^INSTRCX.R*. '1"J¡IF X THEN
(0 X=X+l:X=INSTRCX.R*.'2'l:IF X THEN .

j0 X=X+l:X^INSTRCX.R*. "2"5:ir X THEN IF t1ID*CP*.X. 1J = "3'
50 FOR 1=0 TO 3

'0 IF DC4-n<6 AND niD-K" 3 *. 4-1 . ! ) = "0" THEN X=4-I:RETURN
50 IF DC4+IK6 AND f1ID*CP*. 4+1 . 11="0" THEN X=4+I:RETURN
30 NEXT I

50 X=INSTRCX+1.P*."3"}:IF X THEN RETURN
10 X»t«STRtl.T»."5"J:IF X then RETURN ELSE í
?0 niD*tA».CY-n*8+X.lD=S»:MID*CA*.49*tX-lD*7+Y.13=S»
30 IF X<4 AND Y>X + 2 OR X>4 AND Y<X-3 THEN 450

*0 IF X>=Y THEN niD*CA$.122 + 9*Y-8*X.n=S$ ELSE t1ID*CA*. 1 22-7*X+8*Y. 1 J=S*
50 IF X<4 AND Y<5-X OR X>4 AND Y>13-X THEN RETURN

50 IF X<?-Y THEN niD*C A*. 10?+9*X+8*Y. n=S* ELSE niD*CA$. 1 14+7*Y+8*X. 13=S*
70 RETURN

30 I1=0¡X=0¡CIRCLE£100.!5j.10.8...1.4¡PAINT C100.15D.8

30 FOR H=0 TO l:IF STICKCm=7 THEN 520 ELSE IF STICKCM3=3 THEN 510 ELSE IF STRI
rm = -l THEN 500 ELSE NEXT fl:GOTO 490

30 IF X=0 OR DCX1=6 THEN BEEP ¡GOTO 490 ELSE CIRCLE C 100->-20*X. 15j . 10. 1 . . . 1 . 4 ¡PAIls
[100+20*X. 150.1 ¡RETURN

10 IF X<7 THEN X=XM¡GOTO 530 ELSE BEEP ¡GOTO 490
20 IF X>1 THEN X=X-1 ELSE BEEP ¡GOTO 490

30 CIRCLE C100+20*I1.15].10.1...1.4¡PAINTC100+20*I1.15Í.1¡CIRCLE C 100+20*X. 153 .
3.8. . . 1.4¡PAINTf 100+20*X. 1 5 ) . 8 ¡ I 1 =X ¡GOTO 490

COURRIER

Je unís écns quclqucs mots en unir
qu'iiiilis.itcui du programme IT X de
Som Intogiamcs, I'ai pariiculicrement
appicirie la perimcnce de l - art¡cle de
J.P. Roche. J'ajouterai ccpcndanl Jeu\
poun- .i dcch.itgc el un aulrc á charge

1 1 csi punible de remedier á l'absence
d'cn tele el de pied de pape erice a l'utl-

— La programrnaiion de l'impnnianie
n'esl pas trop dilticilc a condllion que

caracteres géncraus. du tcslc (tormat de
la pape, ecriluie en NI 1.1. maree, ele)
sous le caractcrc n - 2 (initialisalion) el

l'interligne sous le caraclérc n - 13 (saui
de ligue). Dan. ce cas. muir a» ce une
ni .puníanle non MSN. le resultar esi
acceplable : jugez sur pieCC...

— II apparait cependant, que ce pro-

rcdaclion de cours ou d'arlicles ou
Pimpo ríanle capacite de mcnrolrc (plus
de 39 KOmi. MS\ M MU auiM .pieles
loiictrotis deplaccuienl eopic de blocs.

SCKM Nn.ll.il.: .o. un le si.... ecmcntdi
ptOframme) D'autrc pan. .1 n'esisl
pas de sauvegarde possiblc sur dis

( oirrrrie les hehieis s.iu.ccardcs sin cas
sene nc le sonl pas en modc \SC II. .1
ne sonl pas recuperables sous Basic e
ils sonl puremcnl el siiiiplenicnl perdu
pon. eclui q.n passcrail de-, cassettes au
disquettes á moins d'achcter (et c'es
peni el re le bul de l'opcralion) la ser

siorr disquette du programme. ce qui
muís laii soriu encoré une fois 350 F de
votreescarccllc. L'acheteur succcssifde

quelte devra done debourser 700 F pour
nc pas perdre ses fíchiers et pour posse-
de. un programme qui nc vaul pas cette
somme (Inlogramcs n'cffectue pas,
comme A.P. Soft le transferí sur dis-
quettes du programme cassette, ni ne
l'olfre en standard comme Aackotexl

En conclusión, malgré

, qualités inde-

esl un produil bybride dont l'achat CSt
un piége... Voici le témoignage de
quelqu'un de "pris".

Inlogramcs qui j'espére, me repondrá
en meme lemps que vous.

Denis Krieger á Reims.

37

ASTRES

Troisiéme partie

Au cours des números précédents, nous avons étudie les prin-
cipales inslructions de l'assembleur, l'interfacage avec le langage
Basic et le fonctionnement succint de l'édlteur-assembleur Dev-

C'ommc nous l'avons sígnale dans le
""Mino piccédent, les programmes de
vene m-iic iTamcles mil ele rcalisc» ■>
l'aide de l'assembleur Hisofl Devpae.
I es i'\pliealions qui suisenl sonl propres

Caractéristiques du Devpae

I e Des pac csi eomposé de deux modu-
les. Le premier est un édiieur-
asscmblcur qui porte le nom de (UN

•N est un éditeur-
passes tres rapide. l a
premien- passe anahsc le íormat des ins-
triieiuMis. deieele les erreurs de syntaxe
éventuelles et genere la table des s-, mbo
les el des étiquettes (LABELS). La
seconde calcule les déplaeemenis
d'adicsses cu lollction de la table géné-
ree dutaiii la prendere passe et produit
les eodes objcls de loutes les instruc-

Le module GEN peul exécuter des
assenihlai-es conditionnels. L'asscm-
hla.e eondiiionnel correspond á une

compte ou non en fonction de la table

(.'naque uisiruction doil as
Etiquette !
Debut :

D, XOR, I.DIR, CALL,

d'opérande.

>niquc INC admet une
le (INC HL).
i mnémonique LD admet deux ope-

Remarques
: charge HL

appelée i

cuon JP, JR,
CALL...) ou si elle identlfie une cons-
tante symbolique propre au programme
(voir pseudo-mnémoniques EQU ou
DEF). Le mot utilise comme étiquciic
doit étre composé de un á six caracte-
res dont le premier est une lettre (A-Z,

gramme.

Mnémonique représente le champ mi
Z80 tclle que décrite dans le prem

qui vous permet d'installer descomí
taires desunes a une , 'mpicllcnsii.il plus
aiséedu programme ( ene notion es
rapprocher de l'instruction Hasic KIM
Le champ commentain- commence .__
jours par un signe ';'. Ce champ peut

Format des opérandes

évaluée par GEN pendant
la pnase d'assemblage. L'expression est
de la forme : II KMI ol'l RA III K
TERME...

TERME peut étre :

Une constanie décimale : 1234.

Une constante hexadécimale précédée

signe »o : % 1 1 lixilol .

Une constante caraclére entre guillc-

Une étiquette : DEBUT (remarque : le
symbole ':' final n'est plus nécessaire).
Le caraclére spécial $ qui represente la
valeur courante du PC (Program Coun-

OPERATEUR peut et

& : fonction et logique.

9 : fonction ou logique.

'. : fonction ou exclusif logique.

? : fonction modulo (reste de la división

par).

Vous devez bien sür respecter le formal
d'opérande attendu par la mnémonique.
Certaines mnémoniques attendent des
operandes de 8 bits et d'autres, des opi-

les directives de l'assembleur
ou pseudo-mnemoniques

Les directives fonctionnent
comme les mnémoniques no
peuvent étre prccédées d'ui

: ORO «9000 Mgnitic que ¡,i
á l'adresse hexadécimale 9000.

EQU. Syntaxe : étiquette EQU ex

Exemple : TOTO: EQU * 1245.
LD HL.TOTO.
Equivaut á LD
HL, « 1245.

DEFB. Syntaxe : DEFB expression
expression,...

Cene directive évalue les 'expression' di
8 bits consécutives et installe les valeurs
évaluées á l'adresse mémoir
du PC. Cette directive perm

DEFW. Syntaxe : DEFW expression,

Cette directive est identique á DEFB
mais porte sur des mots de 16 bits i la
place de mots de 8 bits.
"' "— i de chaqué expression, le PC est

DEFS. Syntaxe ! DEFS expression.
Cette directive augmente la valeur
PC de la valeur de l'expression. I

DEFM. Syntaxe : DEFM "el

les ASCII de la chaine de carac-
présentée. n vaut la longueur de
te (1 á 255).

ENT. Syntaxe : ENT expression.
Cette directive positionne le pe
d'entrée du programme á l'adresse spé-
cifiée par "expression".

IF. Syntaxe : 1F expression.

Cette directive permet l'assemblage coi

ditionnel des instructions qui suivei

ELSE ou END.

ELSE. Syntaxe : ELSE.

Cette directive inverse la conditio

d'assemblage déterminée par la directn

END. Syntaxe : END.
Cette dircctivi- it-rtiinic
d'assemblage conditionn

Remarque : les directives r
sont rclativement standarc
vent dans la plupart des as

général propres á un assembleur parti-
culici , cllcs n'ont aucun effet sur le code
généré. Elle servent simplemcnt á n
fier le listing généré.

• E : éjecte la page avant de conti
(EJECT).

• Hdiaine : imprime la chaine spécifiée
en haut de chaqué page (HEAD1NG).

• S : arrete l'édition du listing. Cette
derniére pourra étre reprise en enfon-
une touche quelconque du clavier.

- : pas d'émission de listing á par-

Les commandes de l'éditeur

iteur-assembleur GEN esl done
composé d'un asscmblcur dont les prin-
cipales fonclions onl été décrites c¡-
dessus, el d'un édileur qui permet
l'introduclion du texteet sa uiucimiJc

le sysiéme demande la laille d'une
de travail el les options d'asscm
blage. En general, vous pouuv repon
dre ENTER ou 1000 á la premiére ques-
lion. La seconde queston concerne les
différentes opiions d'assemblagc avec
les convcnlions suivanles :

1 : produil une lable des symboles á la
fin du listing.

2 : nc générc pas de code objel.
4 : ne produit pas de listing.

8 : dirige les sorlies sur l'imprimante.

le pas rempLiccnu'n! du e.

Vous pouvez uliliser une combinaison
quclconque de ees nombres Ixcmplc :
l'option 41 produil une lable de symbo-

1 J irige les sorties sur impr

ste pas l'emplacemcni

C. Syniaxe : C.

Cctlc commande arfichc les s alcurs pai
défaul des différenis parametres.

E. Syniaxe : E n.
Ccltc commande cr
édileur ligne (voir p

F. Syniaxe : F n.m.f.s.
Cene commande recherche la
caractére f enlrc les lignes n
est ulilisé. la commande reí

trouvé qui esl chargé.

H. Syntaxe : H.

i ene commande foun

/e ENT a elí utilisée, la

U. Syntaxe : U.

Cene commande affiche le

la derniére ligne du texte s

m l'incrément entre i
la commande Basic /

ligne de depan el
euxligneí "

— terminée |
ENTER. La sorlic du modc d'inseri
se fail par la pression simultanee des
unidles CTRL el C.
Remarque : si vous enirez une ligne ai

ledci.iJ.

M. Syntaxe : D n,m,d.
Cene commande déplacc le lexie com-
pns emre les lignes n el m sers la ligne
d el efface le bloc de lexte original.

O. Swnaxc : O..S.

Cetie commande écril le fichier ol

produit par le dernicr assemblage su

I média (casselle) sous le

/. Syniaxe : Zn.m.

Cclte commande envoie la partie du

lexte source compris enlrc les lignes n

La commande En positionne l'éditeur
ligne sur la ligne n. A partir de ce '

bles sur la ligne spécifiée.

• La barre d'espaee incremci

• DEL décrémentc le poin

• ENTER lerminc l'édilion

• C change le

la suite de la cor

d'insertion de tex
ic par ENTER).

ís effectuées.
icaiionseffcctuées.

42

6 NUMEROS

íoor

etrecevez
encadeau

LE r
GUIDE

DES c
ORDINATEURS

HSX

W 9 / Tl^ É ¿ ¿m^~~~ Je désire recevoir : de MSX

■ »**,.^„p»MSX Magaz.ne choix , le nurnéro de f ra¡s

1 * ^ * T"ohp á MSX Magazine
au prix de 100 r v du m|X

Nom _
Adresse -

Je désire recevoir. MSX
-Au choix, «e numéro » Fde frais
Magazme: 1°
de port sort .
^ Le s números^ J^p^ ffais de

1 ¿rtiit: 64.50 F.

Prénom _

CEST NOUVEAU CEST SONY.

SONY CREE
L'INTELLIGENCE
ÉVOLUTIVE.

Soyons clairs. Oú en esl la micro-infoimatique auioutd'hui? Un systeme qui se connecle directemenl sur le lutur. Preñóos par

Chaqué jour, un construcleuf cfée un nouweau concepl de micio-ordi exemple le micro nrdinateur SONY HIT BIT 501 comme premier

naleut. démodant aussitot le concept piécédent. les logiciels. les élément du sysléme

pénphéiiques. Parce qu'il vous propose une forme d'inlelligence loul á la lois créaii

Chaqué jour, le public se demande s il laut acheler un microírdina ve el ludique. pralique el concrete, il est ideal pnur vous qui souhailez

leur auiourd'hui ou s'il laut altendre demain, el méme aprés-demam maitriser l'inlormatique ou pour vos enlants qui veulent s'y iniher

Chaqué |Our, un possesseur de micro-ordinateur cesse de se servir de El si par la suite vous désire? évoluer progressivement vers des appli

■ est dé|á dé- ip** - — ^rwa calions plus élaborées. choisissez

uxpénphénquesetdonc ■H Parce qu'il esl enti

' Sle (comme tous les ciernen
ístéme HiT BIT SONY) il s util

le forme d intelligence' qui se trou- I
ve auiourd'hui dépassée elle-méme
par ses propres performances. Le

propre de l'intelligence n'eslil pa;

de sadapter sans cesse' H aprésdemam

Auiouid'hui. c'esl nouveau. SONY ■ ■ Tous les elémenls du sysléme

crée l'intelligence évolutive avec le HIT BIT SONY utilisent le nouveau

HIT BIT. le premier sysléme né de la i jj^ñ standard inlemalional MSX. dé|a

compatihihté ^^^^^^y^l • adopte

Avec le systeme HIT BIT. vous ^^^^^^^^^^^^^^^^^H úans le mnie Poul

acheté/ un micro-ordinaleur au 1 *1 : : : : : : • • ' • ■ll yi^^l la garanlie davoir accés á une

inurdhui. il sera louiours aussi ac ^L¡í¡.'-. ' ^jUVo logitheque chaqué jour plus impor

luel el aussi pertormam demam tanle et plus complete

Parce qu'avec le systeme HIT BIT, Avec le sysléme HIT BIT SONY, pre-

SONY ne se contente pas de vous | Li "' > °° I mier systéme véntalKement né de

proposer des micro ordinateurs, des T T T m W "W m la com P a,lblll,é - S0N¥ ,ous ouv,e

logiciels, des pénphénques, SONY III lil i les po,tes dun nmm mon(lf! de

vous propose un véritable systéme. I— I I r"C I la micro informatique. d'une nou-

cohérent el évolutif, entiérement I § I velle lorme ílntelligence. I'ínti*

compatible. X X X X J— XX* gence évolulive.

LE 1 er SYSTEME NÉ DE LA COMPATIBILITE.

SONY